home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304D.ZIP;1 / EXBAS.ARJ / FGDOC / EXAMPLES / BASIC / 08-09.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-01-24  |  835 b   |  50 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. NewMode = FGbestmode(320,200,1)
  6. IF NewMode < 0 OR NewMode = 12 THEN
  7.    PRINT "This program requires a 320 x 200 color graphics mode."
  8.    STOP
  9. END IF
  10. OldMode = FGgetmode
  11. FGsetmode NewMode
  12.  
  13. Status = FGinitxms
  14. IF Status = 0 THEN Status = FGallocxms(8)
  15. IF Status < 0 THEN
  16.    Status = FGinitems
  17.    IF Status = 0 THEN Status = FGallocems(8)
  18. END IF
  19. IF Status < 0 THEN
  20.   SetMemStatus& = SETMEM(-64016)
  21.   Status = FGalloccms(8)
  22. END IF
  23.  
  24. IF Status < 0 THEN
  25.    FGsetmode OldMode
  26.    FGreset
  27.    PRINT "Unable to create logical page."
  28.    STOP
  29. END IF
  30.  
  31. FGsetcolor 7
  32. FGrect 0, 319, 0, 199
  33. FGsetcolor 9
  34. FGlocate 12, 18
  35. FGtext "test", 4
  36. FGwaitkey
  37.  
  38. FGcopypage 0, 8
  39. FGerase
  40. FGwaitkey
  41.  
  42. FGcopypage 8, 0
  43. FGwaitkey
  44.  
  45. Status = FGfreepage(8)
  46. FGsetmode OldMode
  47. FGreset
  48.  
  49. END
  50.